iNthroot(0.5, 6) # 0
iNthroot(1, 6) # 1
iNthroot(5^6, 6) # 5
iNthroot(5^6-1, 6) # 4
if (FALSE) {
# Define a function that tests whether
isNthpower <- function(p, n) {
q <- iNthroot(p, n)
if (q^n == p) { return(TRUE)
} else { return(FALSE) }
}
}
Run the code above in your browser using DataLab