Nothing
`renyiplot` <- function(
xr, addit=FALSE, pch=1,
xlab="alpha", ylab="H-alpha", ylim=NULL,
labelit=TRUE, legend=TRUE, legend.x="topleft", legend.ncol=8,
col=1, cex=1, rainbow=TRUE, evenness=FALSE, ...)
{
x <- xr
# x <- as.matrix(x)
x <- data.frame(x)
names <- names(x) <- names(xr)
p <- ncol(x)
n <- nrow(x)
m <- max(x, na.rm=T)
if(is.null(ylim) == T) {ylim <- c(0, m)}
pos <- -1000
names <- as.factor(names)
# ylab <- "H-alpha"
if(evenness == T) {
pos <- 1000
if (ylab == "H-alpha") {ylab <- "E-alpha"}
x[,] <- x[,]-x[,1]
m <- min(x, na.rm=T)
if(is.null(ylim) == T) {ylim <- c(m, 0)}
}
if(addit==F) {
graphics::plot(names, rep(pos, p), xlab=xlab, ylab=ylab, ylim=ylim, bty="l", xlim=c(0.5, p+1), ...)
}
if (n > 25) {
warning("Symbol type was kept constant as there were more than 25 profiles (> number of symbols that are currently used in R)")
rainbow <- T
}
if (rainbow==T && n > 1) {
grDevices::palette(colorspace::rainbow_hcl(m, c=90, l=50))
for (i in 1:n) {
if (n<26) {graphics::points(c(1:p), x[i,], pch=i, col=i, cex=cex, type="o")}
if (n>25) {graphics::points(c(1:p), x[i,], pch=19, col=i, cex=cex, type="o")}
if (labelit==T) {
graphics::text(1, x[i,1], labels=rownames(x)[i], pos=2, col=i, cex=cex)
graphics::text(p, x[i,p], labels=rownames(x)[i], pos=4, col=i, cex=cex)
}
}
if (legend==T && n<26) {legend(graphics::locator(1), legend=rownames(x), pch=c(1:n), col=c(1:n), ncol=legend.ncol)}
if (legend==T && n>25) {legend(graphics::locator(1), legend=rownames(x), pch=rep(19,n), col=c(1:n), ncol=legend.ncol)}
}else{
for (i in 1:n) {
if (n<26) {graphics::points(c(1:p), x[i,], pch=i, col=col, cex=cex, type="o")}
if (n>25) {graphics::points(c(1:p), x[i,], pch=19, col=col, cex=cex, type="o")}
if (labelit==T) {
graphics::text(1, x[i,1], labels=rownames(x)[i], pos=2, col=col, cex=cex)
graphics::text(p, x[i,p], labels=rownames(x)[i], pos=4, col=col, cex=cex)
}
}
if (legend==T && n<26) {legend(x=legend.x, legend=rownames(x), pch=c(1:n), col=col, ncol=legend.ncol)}
if (legend==T && n>25) {legend(x=legend.x, legend=rownames(x), pch=rep(19,n), col=col, ncol=legend.ncol)}
}
grDevices::palette("default")
}
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.