Running examples in ‘WeightedCluster-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: as.seqtree
> ### Title: Convert a hierarchical clustering object to a seqtree object.
> ### Aliases: as.seqtree as.seqtree.twins as.seqtree.hclust
> 
> ### ** Examples
> 
> data(mvad)
> ## Aggregating state sequence
> aggMvad <- wcAggregateCases(mvad[, 17:86], weights=mvad$weight)
> 
> ## Creating state sequence object
> mvad.seq <- seqdef(mvad[aggMvad$aggIndex, 17:86], weights=aggMvad$aggWeights)
 [>] 6 distinct states appear in the data: 
     1 = FE
     2 = HE
     3 = employment
     4 = joblessness
     5 = school
     6 = training
 [>] state coding:
       [alphabet]  [label]     [long label] 
     1  FE          FE          FE
     2  HE          HE          HE
     3  employment  employment  employment
     4  joblessness joblessness joblessness
     5  school      school      school
     6  training    training    training
 [>] sum of weights: 711.57 - min/max: 0.13/33.43
 [>] 490 sequences in the data set
 [>] min/max sequence length: 70/70
> 
> ## COmpute distance using Hamming distance
> diss <- seqdist(mvad.seq, method="HAM")
 [>] 490 sequences with 6 distinct states
 [>] creating a 'sm' with a single substitution cost of 1
 [>] creating 6x6 substitution-cost matrix using 1 as constant value
 [>] 490 distinct sequences
 [>] min/max sequence length: 70/70
 [>] computing distances using the HAM metric
 [>] elapsed time: 0.268 secs
> 
> ## Ward clustering
> wardCluster <- hclust(as.dist(diss), method="ward", members=aggMvad$weight)
The "ward" method has been renamed to "ward.D"; note new "ward.D2"
> 
> st <- as.seqtree(wardCluster, seqdata=mvad.seq, diss=diss, weighted=TRUE, ncluster=10)
Error in .Call("tmrWeightedInertiaDist", diss, as.integer(nrow(diss)),  : 
  C symbol name "tmrWeightedInertiaDist" not in load table
Calls: as.seqtree ... as.seqtree.default -> as.seqtreeDTNBuildNode -> .Call
Execution halted