#' list ncol x ncol sub matrix
#'
#' @param mtx matrix
#' @param ncol submatrix size,default 5
#'
#' @return
#' @export
#'
#' @examples
#' x<-matrix(rnorm(100),ncol=10)
#' top5(x)
top5<-function (mtx,ncol=5){
return (mtx[1:ncol,1:ncol])
}
#' Title
#'
#' @param x
#'
#' @return
#'
#' @examples
<-function(x){
}
#' plot by first two
#'
#' @param mtx
#'
#' @return
#' @export
#'
#' @examples
#' @importFrom ggplot2 plot
plotfirst2<-function(mtx){
plot(mtx[,1:2])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.