deldir

问题 I am drawing a 3D surface mesh of human face. Data can be found at https://github.com/Patricklv/Smoothing-3D-surface, where vb.xlsx contains vertices and it.xlsx contains faces. My R code is as follows: library(xlsx) library(rgl) vb <- read.xlsx("C:\\Users\\<Username>\\Desktop\\vb.xlsx", sheetIndex = 1, header = F) it <- read.xlsx("C:\\Users\\<Username>\\Desktop\\it.xlsx", sheetIndex = 1, header = F) vb_mat <- t(as.matrix(vb)) vb_mat <- rbind(vb_mat, 1) rownames(vb_mat) <- c("xpts", "ypts",

问题 I am drawing a 3D surface mesh of human face. Data can be found at https://github.com/Patricklv/Smoothing-3D-surface, where vb.xlsx contains vertices and it.xlsx contains faces. My R code is as follows: library(xlsx) library(rgl) vb <- read.xlsx("C:\\Users\\<Username>\\Desktop\\vb.xlsx", sheetIndex = 1, header = F) it <- read.xlsx("C:\\Users\\<Username>\\Desktop\\it.xlsx", sheetIndex = 1, header = F) vb_mat <- t(as.matrix(vb)) vb_mat <- rbind(vb_mat, 1) rownames(vb_mat) <- c("xpts", "ypts",