Nothing
".managNAkasc" <- function(x)
{
## Verifications
if (!inherits(x,"kasc")) stop("non convenient data")
class(x)<-"data.frame"
## We only keep the mapped pixels for ALL variables
tmpy<-is.na(x)
tmp<-apply(tmpy, 1, function(x) sum(as.numeric(x)))
x[tmp!=0,]<-rep(NA, ncol(x))
class(x)<-c("kasc", "data.frame")
return(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.