fun.den <- function(d,vmax){ #data
M1 <- density(d[,1], na.rm=TRUE,from=0 ,to=vmax)
M2 <- density(d[,2], na.rm=TRUE,from=0 ,to=vmax)
M3 <- density(d[,3], na.rm=TRUE,from=0 ,to=vmax)
M4 <- density(d[,4], na.rm=TRUE,from=0 ,to=vmax)
M5 <- density(d[,5], na.rm=TRUE,from=0 ,to=vmax)
M6 <- density(d[,6], na.rm=TRUE,from=0 ,to=vmax)
M7 <- density(d[,7], na.rm=TRUE,from=0 ,to=vmax)
M8 <- density(d[,8], na.rm=TRUE,from=0 ,to=vmax)
M9 <- density(d[,9], na.rm=TRUE,from=0 ,to=vmax)
M10 <- density(d[,10], na.rm=TRUE,from=0 ,to=vmax)
M11 <- density(d[,11], na.rm=TRUE,from=0 ,to=vmax)
C12 <- density(d[,12], na.rm=TRUE,from=0 ,to=vmax)
C13 <- density(d[,13], na.rm=TRUE,from=0 ,to=vmax)
C14 <- density(d[,14], na.rm=TRUE,from=0 ,to=vmax)
C15 <- density(d[,15], na.rm=TRUE,from=0 ,to=vmax)
C16 <- density(d[,16], na.rm=TRUE,from=0 ,to=vmax)
C17 <- density(d[,17], na.rm=TRUE,from=0 ,to=vmax)
C18 <- density(d[,18], na.rm=TRUE,from=0 ,to=vmax)
C19 <- density(d[,19], na.rm=TRUE,from=0 ,to=vmax)
re <- list(M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,C12,C13,C14,C15,C16,C17,C18,C19)
return(re) #check change #check over
}
fun.den(mydataframe,2000000)
不报错,为什么
re
Error: object 're' not found
到底如何return?还是问题不在这?
#我造这种编码方式有点low,但这个问题是怎么回事?