install.packages("iemiscdata")

library(install.load)
load_package("iemisc", "iemiscdata", "data.table", "dplyr", "rpivotTable")
# load needed packages using the load_package function from the install.load
# package (it is assumed that you have already installed these packages)


# Example 1
# Future value given present value
FgivenP(8330, 6, 10, frequency = "annual") # the interest rate is 10%

# or

P <- 8330
n <- 6
P * i10[n, which(names(i10) == "F/P"), with = FALSE][[1]]
# use i10 for the 10 percent effective interest table values
# n is the row number
# which(names(i10) == "F/P"), with = FALSE provides the column number in a
# data.table
# [[1]] provides the value of the vector



# Example 2
# Future value given annual value with continuously compounded interest
FgivenAcont(4500, 5, 20) # 20% interest

# or

F <- 4500
n <- 5
F * r20[n, which(names(r20) == "F/A"), with = FALSE][[1]]
# use r20 for the 20 percent nominal interest table values
# n is the row number
# which(names(r20) == "F/A"), with = FALSE provides the column number in this
# data.table
# [[1]] provides the value of the vector



# Example 3
# View the Manning's n data sets

View(nchannel)

View(nmetalpipe)

View(npartfull)



# Example 4
# View the Wikipedia US Presidental Election Results Table

View(pres_elect1)


# The number of elections won by the Winners of the Presidential Election
# using dplyr's count along with piping
pres_elect1 %>% count(Winner)


# view the interactive pivot table of the whole table
rpivotTable(pres_elect1)


# view the interactive pivot table using the Winner Party column
rpivotTable(pres_elect1, cols = "Winner Party")