From the following calculation, I found the VWAP is 80.65, sharpe ratio is 0.4278 and cumulative Alpha is -0.015.

Lets look at the VWAP first. I have difficulty to get volume on yahoo finance.

So I used the volume that i can get in my portfolio which is just 12 since i have only 1000 at the very beginning.

symbol_name2 <- c("WWNPX")

Then we pick the date from Aug 31 from the begining of the semaster to today.

price2 <- getSymbols(symbol_name2, from = "2023-08-31", to = "2023-10-11")%>%
  map(~Ad(get(.))) %>%
  reduce(merge) %>%
  'colnames<-'(symbol_name2)

price2
##            WWNPX
## 2023-08-31 82.57
## 2023-09-01 83.26
## 2023-09-05 80.12
## 2023-09-06 80.77
## 2023-09-07 80.96
## 2023-09-08 81.34
## 2023-09-11 78.44
## 2023-09-12 80.42
## 2023-09-13 79.30
## 2023-09-14 80.27
## 2023-09-15 79.48
## 2023-09-18 80.83
## 2023-09-19 81.28
## 2023-09-20 82.10
## 2023-09-21 81.62
## 2023-09-22 80.72
## 2023-09-25 81.13
## 2023-09-26 80.49
## 2023-09-27 81.11
## 2023-09-28 82.11
## 2023-09-29 80.12
## 2023-10-02 77.90
## 2023-10-03 78.58
## 2023-10-04 78.03
## 2023-10-05 78.37
## 2023-10-06 78.62
## 2023-10-09 79.92
## 2023-10-10 80.81

First we need to get typical price.

Typical Price = High price + Low price + Closing Price/3

tp<-(83.26+77.90+80.81)/3
v<-12
vtp<-tp*v
vwap<-vtp/v
vwap
## [1] 80.65667

So the VWAP is 80.65.

it look like we should buy more since VWAP is higer than closing close which mean it is increase trend.

Up next, we want to understand better on Sharpe Ratio.

portfolio_excess_returns <- Return.excess(portfolio_monthly_returns, 
                                          Rf = .0003)
sharpe_ratio_manual <- round(
  mean(portfolio_excess_returns) / StdDev(portfolio_excess_returns), 4
)

# If we wanted to use the original, 1966 formulation of the Sharpe Ratio,
# there is one small change to the code in Method 1
sharpe_ratio <- round(
  SharpeRatio(portfolio_monthly_returns, Rf = .0003), 4
)

sharpe_ratio
##                               portfolio.returns
## StdDev Sharpe (Rf=0%, p=95%):            0.6161
## VaR Sharpe (Rf=0%, p=95%):               0.8248
## ES Sharpe (Rf=0%, p=95%):                0.7208

Sharpe Ratio is telling us the return of WWNPX (Kinetics Paradigm Fund No Load Class) with the risk of its own,

The sharpe value is very low which mean the return may not be as high as we want from the risk that we took.

Then we can also say the risk free rate of WWNPX is low.

This mean the choice i made may not generate high returns. however, it is not a negative means we are still able to make profit.

I also check the 6 months S&P 500 sharpe is around 1 which mean that S&P 500 turst is a better investment that WWNPX.

The last thing we want to look at is Alpha.

AlphaPlot('WWNPX')
## [1] "Number of Trading Days is  33"
## [1] "Beta is  0.35"
## [1] "Beta of Last 100 Days is 0.348"
## [1] "Annualized Total Return 0.1577"
## [1] "Annualized Alpha 0.2492"
## [1] "Ending Cumulative Alpha is 0.02922"

As we can see the Alpha is negative which means WWNPX is underperforming, it is not able to generate the expected returns.

Does that mean good or bad? I think we may need to wait and look at it for a longer period.

It could be a chance for increasing price in the future.

Also a positive alpha could caused by luck, it can fall very soon and it is more risky.

However, it looks like a increasing trend by looking at the plot.