estjointpab <- function(vec1,vec2) {
vec1 <- round(as.numeric(vec1))
vec2 <- round(as.numeric(vec2))
m <- length(vec1)
n <- length(vec2)
if (m!=n){
print("the two input variables length differ")
return(0)
}
else{
vec<-paste(vec1,vec2)
freq <- as.data.frame(table(vec))
freq[,2] <- freq[,2]/m
return(freq)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.